   8 . SLOT MACHINE
   9 .MUELLER  8-4-79
  10 clear 
  20 BC=-24
  30 FC=127
  35 NT=0
  40 print " ELECTRONIC SLOT PAYOFF "
  50 print "    $$$ 200     *** 25"
  60 print "    &&& 100     @@@ 5"
  65 print "    %%% 50"
  70 CY=-5
  80 print "  LEMON   LEMON   LEMON"
  85 box -6,-5,143,22,3
  86 box -6,-5,139,18,3
  90 for X=-54to 42step 48
 100 box X,-5,41,16,3
 110 next X
 120 D=1000
 130 E=1000
 140 CX=-67;CY=-32
 145 NT=0;FC=127;BC=-24
 150 print "PLAYER #1 FUNDS  $",#1,D
 155 CX=-67
 160 print "PLAYER #2 FUNDS  $",#1,E,;print " ",
 170 if TR(1) goto 200
 180 if TR(2) goto 220
 190 goto 170
 195 NT=0
 200 F=1
 205 for Z=16to 22;&(Z)=79;next Z
 210 goto 221
 220 F=2;goto 205
 221 CX=-65;CY=-5;gosub 1060
 222 CX=-17;CY=-5;gosub 1060
 223 CX=31;CY=-5;gosub 1060
 224 NT=4
 230 for G=1to 8
 240 box -6,-5,139,18,3
 250 next G
 260 if TR(F)=0goto 280
 270 goto 230
 280 if F=1D=D-1
 290 if F=2E=E-1
 300 A=rnd (10)
 310 B=rnd (10)
 320 C=rnd (10)
 330 CX=-65
 340 CY=-5
 350 if A=1gosub 1010
 360 if A=2gosub 1020
 370 if A=3gosub 1020
 380 if A=4gosub 1030
 390 if A=5gosub 1030
 400 if A=6gosub 1040
 410 if A=7gosub 1040
 420 if A>7gosub 1050
 430 CX=-17;CY=-5
 440 A=Z
 450 if B=1gosub 1010
 460 if B=2gosub 1020
 470 if B=3gosub 1030
 480 if B=4gosub 1030
 490 if B=5gosub 1040
 500 if B=6gosub 1040
 510 if B>6gosub 1050
 520 CX=31;CY=-5
 530 B=Z
 540 if C=1gosub 1010
 550 if C=2gosub 1020
 560 if C=3gosub 1030
 570 if C=4gosub 1040
 580 if C=5gosub 1040
 590 if C>5gosub 1050
 595 for O=22to 16step -1;&(O)=0;next O
 600 C=Z
 610 if A=Bif B=Cgoto 625
 620 goto 140
 625 BC=7;FC=81
 630 CX=-67;CY=-32;print "up  up  up  up  WINNER up  up  up  up "
 635 CX=-67;print "       PLAYER",#2,F,;print "       ",
 636 for V=1to (8-C)
 637 &(19)=37;&(17)=31;&(21)=47;&(22)=31
 638 FC=83
 639 for U=30to 20step -1;&(16)=U;next U
 640 FC=172
 641 for U=20to 30;&(16)=U;next U
 642 next V
 644 for Z=22to 16step -1;&(Z)=0;next Z
 649 if C=1P=200
 650 if C=2P=100
 660 if C=3P=50
 670 if C=4P=25
 680 if C=5P=5
 700 if F=1D=D+P
 710 if F=2E=E+P
 720 goto 140
1010 print " $$$";Z=1;return 
1020 print " &&&";Z=2;return 
1030 print " %%%";Z=3;return 
1040 print " ***";Z=4;return 
1050 print " @@@";Z=5;return 
1060 print " ###";return 
:return ;run 
